home *** CD-ROM | disk | FTP | other *** search
/ Dr. Windows 3 / dr win3.zip / dr win3 / UTILITY1 / MSWLGO35.ZIP / LOGOLIB / FIND < prev    next >
Text File  |  1992-10-28  |  380b  |  13 lines
  1. to find :find.template :template.list [:template.number 1] ~
  2.         [:template.lists (list :template.list)]
  3. if emptyp :template.list [op []]
  4. if apply :find.template (list first :template.list) [op first :template.list]
  5. op (find :find.template bf :template.list :template.number+1)
  6. end
  7.  
  8. to ?rest [:which 1]
  9. output bf item :which :template.lists
  10. end
  11.  
  12. bury [find ?rest]
  13.